home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmstanc / _setup.1 / AHMTAutoCombo.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-05  |  2.2 KB  |  71 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTAutoCombo.pas' rev: 3.00
  6.  
  7. #ifndef AHMTAutoComboHPP
  8. #define AHMTAutoComboHPP
  9. #include <AHMSControls.hpp>
  10. #include <StdCtrls.hpp>
  11. #include <Controls.hpp>
  12. #include <Graphics.hpp>
  13. #include <Classes.hpp>
  14. #include <SysUtils.hpp>
  15. #include <Messages.hpp>
  16. #include <Windows.hpp>
  17. #include <SysInit.hpp>
  18. #include <System.hpp>
  19.  
  20. //-- user supplied -----------------------------------------------------------
  21.  
  22. namespace Ahmtautocombo
  23. {
  24. //-- type declarations -------------------------------------------------------
  25. typedef void __fastcall (__closure *TAHMOnComplete)(System::TObject* Sender, Word Char, System::AnsiString 
  26.     TrackedItem, bool &ChangeSelection);
  27.  
  28. class DELPHICLASS TAHMAutoCombo;
  29. class PASCALIMPLEMENTATION TAHMAutoCombo : public Stdctrls::TComboBox 
  30. {
  31.     typedef Stdctrls::TComboBox inherited;
  32.     
  33. private:
  34.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  35.     bool FComplete;
  36.     Word FChar;
  37.     Word FMinLength;
  38.     TAHMOnComplete FOnComplete;
  39.     void __fastcall SetComplete(bool value);
  40.     void __fastcall SetMinLength(Word value);
  41.     
  42. protected:
  43.     DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  44.     DYNAMIC void __fastcall Change(void);
  45.     
  46. public:
  47.     __fastcall virtual TAHMAutoCombo(Classes::TComponent* aOwner);
  48.     
  49. __published:
  50.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  51.     __property bool Complete = {read=FComplete, write=SetComplete, nodefault};
  52.     __property Word MinComplete = {read=FMinLength, write=SetMinLength, nodefault};
  53.     __property TAHMOnComplete OnComplete = {read=FOnComplete, write=FOnComplete};
  54. public:
  55.     /* TCustomComboBox.Destroy */ __fastcall virtual ~TAHMAutoCombo(void) { }
  56.     
  57. public:
  58.     /* TWinControl.CreateParented */ __fastcall TAHMAutoCombo(HWND ParentWindow) : Stdctrls::TComboBox(
  59.         ParentWindow) { }
  60.     
  61. };
  62.  
  63. //-- var, const, procedure ---------------------------------------------------
  64.  
  65. }    /* namespace Ahmtautocombo */
  66. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  67. using namespace Ahmtautocombo;
  68. #endif
  69. //-- end unit ----------------------------------------------------------------
  70. #endif    // AHMTAutoCombo
  71.